home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / XLISP 2.0 / XLISP Tools / Utility (UL) / STR-LIST.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1988-04-07  |  448 b   |  19 lines  |  [TEXT/ttxt]
  1. ;; Larry Mulcahy 1988
  2.  
  3. (provide 'str-list)
  4. (require 'sequence)
  5.  
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7. ; list-to-string 
  8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  9.  
  10. (defun list-to-string (l)
  11.   (if (null l)
  12.       ""
  13.       (if (equal (length l) 1)
  14.       (symbol-name (car l))
  15.       (concatenate 'string
  16.             (symbol-name (car l))
  17.             " "
  18.             (list-to-string (cdr l))))))
  19.